home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / STARMAP.DIR / 00036_Script_36 < prev    next >
Text File  |  1995-11-16  |  728b  |  32 lines
  1. on exitFrame
  2.   go to the frame
  3. end
  4.  
  5. on idle
  6.   repeat with i = 13 to 20
  7.     if rollover(i) then
  8.       puppetSprite i-8, true
  9.       repeat while rollover(i)
  10.         set the ink of sprite i-8 to 37
  11.         updateStage
  12.         -- if mouseDown stuff
  13.       end repeat
  14.       set the ink of sprite i-8 to 5
  15.       updateStage
  16.       puppetSprite i-8, false
  17.     end if
  18.   end repeat
  19.   repeat with i = 5 to 12
  20.     if rollover(i) then
  21.       puppetSprite i, true
  22.       repeat while rollover(i)
  23.         set the ink of sprite i to 37
  24.         -- if mouseDown stuff
  25.         updateStage
  26.       end repeat
  27.       set the ink of sprite i to 5
  28.       updateStage
  29.       puppetSprite i, false
  30.     end if
  31.   end repeat
  32. end idle